home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / MacTCP / Finger 1.3.7 / Tokens / STARTUP.p < prev    next >
Encoding:
Text File  |  1991-11-14  |  686 b   |  33 lines  |  [TEXT/PJMM]
  1. unit STARTUP;
  2.  
  3. interface
  4.  
  5.     uses
  6.         ParameterDef;
  7.  
  8.     procedure Main (var p: parameterRecord);
  9.  
  10. implementation
  11.  
  12.     procedure Main (var p: parameterRecord);
  13.         var
  14.             t: longInt;
  15.     begin
  16.         GetDateTime(t);
  17.         t := t - TickCount div 60;
  18.         UprString(p.param^, false);
  19.         if p.param^ = 'SHORT' then
  20.             IUDateString(t, shortDate, p.returnValue^)
  21.         else if p.param^ = 'LONG' then
  22.             IUDateString(t, longDate, p.returnValue^)
  23.         else if p.param^ = 'ABBREV' then
  24.             IUDateString(t, abbrevDate, p.returnValue^)
  25.         else if p.param^ = 'TIMESEC' then
  26.             IUTimeString(t, true, p.returnValue^)
  27.         else if p.param^ = 'TIME' then
  28.             IUTimeString(t, false, p.returnValue^)
  29.         else
  30.             p.returnValue^ := '?';
  31.     end;
  32.  
  33. end.